VBA script til Word for å endre på sidenummerering Delete Edit

Kilde: https://wordribbon.tips.net/T013546_Controlling_Page_Numbers_in_Mail-Merged_Documents.html

Denne koden endrer følgende på alle seksjoner i et Word dokument. (Linjer kommenteres med ’)

Sub RestartPageNumbering()
    Dim oSection As Section
    Dim oHeader As HeaderFooter
    Dim oFooter As HeaderFooter

    For Each oSection In ActiveDocument.Sections
        For Each oHeader In oSection.Headers
            'This code sets restarting numbering pages per section to 1
            oHeader.PageNumbers.RestartNumberingAtSection = True
            oHeader.PageNumbers.StartingNumber = 1
            
            'This code deactivates the restart numbering
            'oHeader.PageNumbers.RestartNumberingAtSection = False
        Next oHeader
        For Each oFooter In oSection.Footers
            oHeader.PageNumbers.RestartNumberingAtSection = True
            oHeader.PageNumbers.StartingNumber = 1
            'oFooter.PageNumbers.RestartNumberingAtSection = False
        Next oFooter
    Next oSection
End Sub